COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(fasload met2)
C00005 ENDMK
C⊗;
(fasload met2)
(*rset (nouuo ()))

(init)

(do ((i 50. (1- i)))
    ((= i 0))
    (traverse root)
    (traverse root)
    (traverse root)
    (traverse root)
    (traverse root))) 

(meter:report-traverse)
Statistics
= <calls> (<percentage>)

Meter for: SNB
1+'s = 100 (100.0%)
Total = 100

Meter for: REMOVE
Cdr's = 1093372 (48.11%)
='s = 553818 (24.37%)
1-'s = 529455 (23.3%)
Car's = 66207 (2.91%)
Eq's = 17281 (0.76%)
Rplacd's = 12231 (0.54%)
Rplaca's = 100 (0.0%)
Total = 2272464

Meter for: SELECT
='s = 541492 (33.33%)
1-'s = 529260 (32.58%)
Cdr's = 529260 (32.58%)
Car's = 24464 (1.51%)
Total = 1624476

Meter for: ADD
Car's = 36693 (33.33%)
Null's = 24463 (22.22%)
Rplacd's = 12232 (11.11%)
Rplaca's = 12231 (11.11%)
Conses = 12231 (11.11%)
Cdr's = 12231 (11.11%)
Total = 110081

Meter for: CREATE-STRUCTURE
Setf's = 24462 (16.63%)
RANDOM = 24462 (16.63%)
ADD = 12232 (8.32%)
REMOVE = 12232 (8.32%)
Null's = 12232 (8.32%)
Car's = 12232 (8.32%)
SELECT = 12232 (8.32%)
PARENTS = 12231 (8.32%)
SONS = 12231 (8.32%)
Conses = 12331 (8.38%)
1-'s = 100 (0.07%)
='s = 100 (0.07%)
Rplacd's = 1 (0.0%)
FIND-ROOT = 1 (0.0%)
Total = 147079

Meter for: FIND-ROOT
='s = 1 (33.33%)
PARENTS = 1 (33.33%)
Null's = 1 (33.33%)
1-'s = 0 (0.0%)
Car's = 0 (0.0%)
Total = 3

Meter for: TRAVERS
MARK = 3083000 (16.45%)
Null's = 3082750 (16.44%)
Cdr's = 3057750 (16.31%)
Eq's = 3058000 (16.31%)
TRAVERS = 3057750 (16.31%)
Car's = 3057750 (16.31%)
Setf's = 175000 (0.93%)
1+'s = 25000 (0.13%)
ENTRY1 = 25000 (0.13%)
ENTRY2 = 25000 (0.13%)
ENTRY3 = 25000 (0.13%)
ENTRY4 = 25000 (0.13%)
ENTRY5 = 25000 (0.13%)
ENTRY6 = 25000 (0.13%)
Total = 18747000
T